﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities


Partial Class cabecera
    Inherits System.Web.UI.UserControl

  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            If Session("CLIENTE") = "" Then
                Label1.Visible = False
                Exit Sub
            End If

            'Instanciamos la clase ClienteBL
            Dim capanegocios As New ClienteBL
            'Instanciamos la entidad de negocio Cliente
            Dim objeto As New BE.ClienteBE
            objeto.codigo = Session("CLIENTE")

            'Invocamos al método BuscarCliente definido previamente en la clase
            'Pintamos en los controles los datos originales del cliente
            Label1.Visible = True
            lblCliente.Text = capanegocios.BuscarCliente(objeto).Tables("ElCliente").Rows(0).Item(1) & _
                            capanegocios.BuscarCliente(objeto).Tables("ElCliente").Rows(0).Item(2)

            capanegocios = Nothing
            objeto = Nothing



        End If
    End Sub
End Class
